home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
DRIVES.SWG
/
0006_DRIVES1.PAS.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-05-28
|
511b
|
28 lines
{
Here are some routines For Changing and detecting drives.
}
Uses Crt, Dos;
Var
Regs :Registers;
Function GetDrive :Byte;
begin
Regs.AX := $1900;
Intr($21,Regs);
GetDrive := (Regs.AL + 1);
(* Returns 1 = A:, 2 = B:, 3 = C:, Etc *)
end;
Procedure ChangeDrive(Drive :Byte);
begin
Regs.AH := $0E;
Regs.DL := Drive; (* Drive 1 = A:, 2 = B:, 3 = C: *)
Intr($21,Regs);
end;
begin
ClrScr;
Writeln(' Current Drive : ',CHR( GetDrive+64 ));
end.